﻿Public Class _Default
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub bt_add_Click(ByVal sender As Object, ByVal e As EventArgs) Handles bt_add.Click
        Dim num1 As Single
        num1 = CSng(tb_number1.Text)
        Dim num2 As Single
        num2 = CSng(tb_number2.Text)
        Dim sum As Single
        sum = num1 + num2
        lb_answer.Text = CSng(sum)
    End Sub
End Class